home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 166 / 166.d81 / b.video fli'er (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  124 lines
  1. 10 poke788,49:poke2024,peek(53280):poke2025,peek(53281):poke2026,peek(646)
  2. 12 poke2027,(peek(53432)and64)/64:poke2028,peek(53428):poke53371,0
  3. 15 poke53280,0:poke53281,0:print"[147]":gosub60000:poke55,255:poke56,47:clr
  4. 20 m1=32768:m2=14336:m3=49152:dim i,f%,f,n,q,en,en$,em$,et$,es$,d,w$,k$
  5. 25 dim a$(7),d%(8),d$(8)
  6. 30 fori=0to7:reada$(i):next:fori=0to8:readd$(i):next:readk$
  7. 35 gosub10000:poke53281,0:sysm1+9,12288,56,28:sysm1+3,0,39,0,0,102,5
  8. 40 sysm1+3,39,39,1,24,102,5:sysm1+3,0,39,24,24,102,5:sysm1+3,0,0,1,23,102,5
  9. 45 sysm1+3,1,38,1,23,28,5:sysm1+6,11,28,5,19,7
  10. 50 fori=0to2:sysm1+75,13,4+i,a$(i):next:fori=0to2:sysm1+75,13,18+i,a$(i):next
  11. 55 sysm1+75,14,5,"[198][204][201] [196][210][201][214][197]:":d=dv:gosub2050
  12. 60 gosub500:gosub600:gosub4000:sysm1+63,11,13,26,3,133,129,"vdq"
  13. 62 poke53370,0
  14. 65 onf%goto100,200,300
  15. 100 en=0:em$="i":i=d:q=1:gosub285:ifst<0then115
  16. 105 q=2:gosub290:ifen>0then115
  17. 110 sysm2,"$:*=p",".fli",d,40960:f=f%:q=3:iff>-1thengosub1000:q=2:ifen=0then60
  18. 115 gosub505:onqgosub620,610,605:gosub4010:sysm1+99," ":ifq=2thengosub2200
  19. 120 goto60
  20. 200 en=0:gosub500:gosub525:gosub645:gosub4060:sysm1+63,11,13,26,2,133,129,"nc "
  21. 205 onf%goto210,250:gosub4070:goto60
  22. 210 n=0:fori=8to16:on-(i=14)goto215:gosub285:ifst=0thenn=n+1:d%(n-1)=i
  23. 215 next:q=1:on-(n=0)goto280:gosub2000:goto60
  24. 250 i=d:gosub285:q=2:ifst=0thengosub2200:goto60
  25. 280 gosub505:onqgosub615,620:gosub4020:gosub4040:sysm1+99," ":gosub4070:goto60
  26. 285 open15,i,15:close15:return
  27. 290 open15,d,15,em$:input#15,en$,em$,et$,es$:close15:en=val(en$):return
  28. 300 gosub500:gosub525:gosub640:gosub4060:sysm1+63,11,13,26,2,133,129,"lb "
  29. 305 iff%=3thengosub4070:goto60
  30. 310 onf%gosub315,320:goto3000
  31. 315 poke53280,0:poke53281,0:poke646,0:return
  32. 320 poke53280,peek(2024):poke53281,peek(2025):poke646,peek(2025):return
  33. 500 sysm1+3,12,27,7,17,28,5:return
  34. 505 sysm1+3,13,26,11,13,32,0:return
  35. 510 sysm1+3,4,35,7,17,28,5:sysm1+3,11,11,7,17,93,7:sysm1+3,28,28,7,17,93,7
  36. 515 return
  37. 520 sysm1+3,11,28,10,14,32,0:return
  38. 525 sysm1+3,13,26,10,13,32,0:sysm1+6,12,27,9,14,7:return
  39. 530 sysm1+3,1,38,10,14,32,0:sysm1+6,0,39,9,15,7:return
  40. 535 sysm1+3,0,39,9,15,28,5:sysm1+3,0,0,9,15,102,5:sysm1+3,39,39,9,15,102,5
  41. 536 return
  42. 540 sysm1+6,4,35,7,17,7:return
  43. 600 fori=0to4:sysm1+75,12,10+i,a$(3+i):next:return
  44. 605 sysm1+75,13,12,"[158][206][207] .[198][204][201] [198][201][204][197][211]!":return
  45. 610 sysm1+75,13,12,"[158]  [196][201][211][203] [197][210][210][207][210]! ":return
  46. 615 sysm1+75,13,11,"[158] [206][207] [196][210][201][214][197][211] [207][206]!":return
  47. 620 sysm1+75,13,12,"[158] [196][210][201][214][197] [206][207][212] [207][206]!":return
  48. 625 sysm1+75,16,13,"[204][207][193][196][201][206][199]":return
  49. 630 sysm1+75,16,13,"[158] [210][197][193][196][217] [146]":return
  50. 635 sysm1+75,12,11,"[195]ontinue viewing":sysm1+75,12,13,"selected .[198][204][201]'s?":return
  51. 640 sysm1+75,13,11,"([204]) [204][207][193][196][211][212][193][210]":sysm1+75,13,12,"([194]) [194][193][211][201][195]":return
  52. 645 sysm1+75,13,11,"([206]) [206][197][215] [196][210][201][214][197]":sysm1+75,13,12,"([195]) [195][207][205][205][193][206][196]":return
  53. 1000 gosub540:gosub4050:sysm1+45,5,8,16,0,5,1,7,1
  54. 1010 n=0:fori=0tof:sysm1+33,i:iff%thenn=n+1
  55. 1020 next:gosub510:if n=0thengosub4070:goto1200
  56. 1030 sysm1+6,10,29,9,15,6:gosub520:gosub4020:gosub4060
  57. 1040 poke650,64:q=0:fori=0tof:sysm1+33,i:iff%=0then1120
  58. 1050 q=q+1:gosub520:poke646,7:sysm1+78,11,w$:gosub625
  59. 1060 wait203,64:sysm2+3,w$,d,15104:wait203,64:poke198,0
  60. 1070 iff%thengosub4030:goto1090
  61. 1075 em$="":gosub290:ifentheni=f:goto1120
  62. 1080 gosub630:gosub4030:sysm1+99,k$:onf%goto1110
  63. 1090 ifq=ntheni=f:goto1120
  64. 1100 gosub520:gosub635:sysm1+99,k$:gosub4020:onf%goto1120:i=f:goto1120
  65. 1110 sysm1+66,208:wait203,64:sysm3:sysm1+69,208:gosub4020:poke198,0
  66. 1120 next
  67. 1200 poke650,0:on-(en=0)gosub510:gosub4070:return
  68. 2000 gosub4060
  69. 2010 q=11-int(n/2):gosub500:sysm1+6,17,22,q,q+n+1,7:poke646,5:fori=0ton-1
  70. 2020 sysm1+75,18,q+1+i,d$(d%(i)-8):next
  71. 2030 sysm1+63,q+1,18,21,n,133,129,"123456789 ":on-(f%>n)goto2040:d=d%(f%-1)
  72. 2040 gosub500:gosub4070
  73. 2050 poke646,5:sysm1+75,24,5,right$(str$(d),2):return
  74. 2200 gosub530:gosub4070:gosub4035:sysm1+75,2,14,"":open15,d,15
  75. 2210 ifenthenprinten$","em$","et$","es$:en=0:goto2230
  76. 2220 sysm2+6
  77. 2230 gosub2400:gosub2400:sysm1+51,5,7,36,"":ifleft$(w$,1)="u"thenen=1
  78. 2240 on-(w$="")goto2280:on-(left$(w$,1)="$")goto2260:print#15,w$:w$=""
  79. 2250 gosub2400:onengosub2410:printw$;:goto2220
  80. 2260 sysm2,w$,"",d,40960:get#15,w$:ifval(w$)<>0then2250
  81. 2270 gosub535:gosub540:gosub4000:sysm1+45,5,8,16,0,5,5,5,0
  82. 2280 close15:gosub535:gosub510:return
  83. 2400 sysm1+18,2,37,10,14:sysm1+24,32,0:sysm1+75,2,14,"":return
  84. 2410 sysm2+9,10,7:en=0:return
  85. 3000 print"[147]":poke53272,23:poke788,49:q=1:onf%gosub3100:iff%-q=0thengosub320
  86. 3010 n=1:print"p[207]56,160:p[207]55,0:clr":poke631,13:onqgoto3030:q$=chr$(34)
  87. 3020 print"l[207]"q$w$q$","d:print"run:":n=3:poke632,13:poke633,13
  88. 3030 print"":poke646,peek(2026)+peek(2026)*(q=0):poke186,dv:poke198,n
  89. 3040 poke53371-peek(2027),0:poke53374,0:poke53428,peek(2028):poke53375,0:end
  90. 3100 w$="hello connect":fori=8to29:on-(i=14)goto3120:gosub285:ifstthen3120
  91. 3110 open15,i,15,"r0:"+w$+"="+w$:input#15,n:close15:if n=63thenq=0:d=i:i=29
  92. 3120 next:return
  93. 4000 sysm1+75,14,19,"[195][210][211][210]--[210][197][212][213][210][206]":return
  94. 4010 sysm1+75,14,19,"[208][210][197][211][211]  [211][208][193][195][197]":return
  95. 4020 sysm1+75,14,19,"            ":return
  96. 4030 sysm1+75,14,19,"[210][197][212][213][210][206]--[214][201][197][215]":return
  97. 4035 sysm1+75,14,19," [197][206][212][197][210] [195][205][196]  ":return
  98. 4040 sysm1+75,13,20,"[167][208][210][197][211][211]  [211][208][193][195][197][168]":sysm1+75,13,21,a$(2):return
  99. 4050 sysm1+75,13,20,"[167][211][208][193][195][197]--[196][207][206][197] [168]":sysm1+75,13,21,a$(2):return
  100. 4060 sysm1+75,13,20,"[167][211][208][193][195][197]--[193][194][207][210][212][168]":sysm1+75,13,21,a$(2):return
  101. 4070 poke646,2:sysm1+75,13,20,a$(2):sysm1+75,13,21,"\\\\\\\\\\\\\\":return
  102. 9000 data "[160][164][164][164][164][164][164][164][164][164][164][164][164][161]","[167]            [168]","[162][165][165][165][165][165][165][165][165][165][165][165][165][163]"
  103. 9010 data "[160][164][164][164][164][164][164][164][164][164][164][164][164][164][164][161]","[167]([214]) [214][201][197][215] [198][204][201]  [168]","[167]([196]) [196][201][211][203] [198][213][206][195] [168]"
  104. 9020 data "[167]([209]) [209][213][201][212]      [168]","[162][165][165][165][165][165][165][165][165][165][165][165][165][165][165][163]"
  105. 9030 data "  8 ","  9 "," 10 "," 11 "," 12 "," 13 "," 14 "," 15 "," 16 "
  106. 9040 data "
  107.  ":rem ** don't edit! **
  108. 10000 dv=peek(186):ifdv<8thendv=8
  109. 10010 sys57812"vf.font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  110. 10020 sys57812"vf.sufx",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  111. 10030 sys57812"vf.mbox",dv,0:poke780,0:poke781,0:poke782,128:sys65493
  112. 10040 sys57812"vf.engn",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  113. 10050 sysm2+12:print"[147][142]":poke53272,29:return
  114. 20000 d=peek(186):n$="0:b.video fli'er":open15,d,15,"s"+n$:close15:saven$,d:end
  115. 60000 z$=" [152]                                      ":poke214,10:print
  116. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  117. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  118. 60030 z$(0)="[214] [201] [196] [197] [207]   [198] [204] [201] ' [197] [210]" :z$(1)="by [194]rian [203]etterling"
  119. 60040 z$(3)="([195]) 1998 by [202] & [198] [208]ublishing, [201]nc."+chr$(13)
  120. 60050 z$(5)="[212]his program is not shareware
  121. 60060 z$(6)[178]"or in the public domain."
  122. 60070 z$(8)[178]"1-800-594-3370 or 1-318-221-8718
  123. 60080 poke214,12:print
  124. 60090 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return
  125.